home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 2,401 to 2,500 / aol-file-protocol-4400-2401-to-2500.zip / AOLDLs / Telecom Utilities / TELNET_ V11.3 AnzioWin 16-Bit / ANZWD113.exe / RECV-PC.RM < prev    next >
Text File  |  1988-10-19  |  3KB  |  108 lines
  1. 000100 IDENTIFICATION DIVISION.
  2. 000200 PROGRAM-ID. RECV-PC.
  3. 000300*
  4. 000400*  FILE RECEPTION FROM ANZIO/DMV-COMM
  5. 000600*
  6. 000700*  FOR OTHER FILE SPECS CHANGE LINES:
  7. 000710*     002000 THROUGH 002400   TO SHOW FILE SPEC
  8. 000800*VERSION 4.0
  9. 000900 ENVIRONMENT DIVISION.
  10. 001000 CONFIGURATION SECTION.
  11. 001100 SOURCE-COMPUTER. RM-COS.
  12. 001200 OBJECT-COMPUTER. RM-COS.
  13. 001500 INPUT-OUTPUT SECTION.
  14. 001600 FILE-CONTROL.
  15. 001700     SELECT A ASSIGN TO OUTPUT "A".
  16. 001800 DATA DIVISION.
  17. 001900 FILE SECTION.
  18. 002000 FD  A BLOCK CONTAINS 512 CHARACTERS
  19. 002300             LABEL RECORD IS STANDARD.
  20. 002400 01  A-REC PIC X(510).
  21.        01  A-REC-MIN PIC X.
  22. 002500 WORKING-STORAGE SECTION.
  23. 002600 01  VERSION-NO PIC X(20) VALUE "VERSION 4.1".
  24. 003100 01  RECSIZE PIC 999.
  25. 003110 01  ACCEPT-LINE.
  26.          02  AL-LENGTH PIC 99.
  27.          02  AL-EOR    PIC X.
  28. 003120   02  AL-77 PIC X(77).
  29. 003200 01  CT1 PIC 999.
  30. 003300 01  LINER PIC 99 VALUE 1.
  31. 003400 01  ANSWER PIC X.
  32. 003500 01  REC-COUNT PIC 99999 VALUE 0.
  33. 003600 01  RC2 REDEFINES REC-COUNT.
  34. 003700     02  FILLER PIC XXX.
  35. 003800     02  REC-COUNT-99 PIC 99.
  36.        01  DISP-COUNT PIC Z(5).
  37. 004200 01  RESPONSE PIC X(10).
  38.        01  ON-TRACK   PIC X.
  39. 005700 01  WORK-REC.
  40. 005800     02  WORK-X PIC X OCCURS 539 TIMES INDEXED BY W-IX.
  41. 005900 01  WORK-REC-1 REDEFINES WORK-REC.
  42. 006000     02  WORK-X77 PIC X(77) OCCURS 7 TIMES INDEXED BY W-IX2.
  43. 006100 01  TIME-1.
  44. 006200     02  FILLER PIC XXXX.
  45. 006300     02  SEC-1  PIC 99.
  46. 006400 01  TIME-2.
  47. 006500     02  FILLER PIC XXXX.
  48. 006600     02  SEC-2  PIC 99.
  49. 006700 PROCEDURE DIVISION.
  50. 006800 MAIN SECTION.
  51. 006900 BEGIN.
  52. 007000     DISPLAY "RECV-PC: PC TO NCR" LINE 1 ERASE.
  53. 007100     DISPLAY VERSION-NO.
  54. 007300     OPEN OUTPUT A.
  55. 010000     DISPLAY "RECORD COUNT: " LINE 12.
  56. 010100     SET W-IX2 TO 1.
  57.            MOVE 0 TO RECSIZE.
  58.            MOVE "Y" TO ON-TRACK.
  59.            MOVE SPACE TO WORK-REC.
  60. 010100 LOOP.
  61.            DISPLAY SPACES LINE 23 SIZE 80.
  62.            ACCEPT ACCEPT-LINE LINE 23.
  63.            IF ACCEPT-LINE = SPACES
  64.               GO TO LOOP.
  65.            IF ACCEPT-LINE = "END$$$"
  66.               GO TO WRAPUP.
  67.            IF ON-TRACK = "Y"
  68.               MOVE AL-77 TO WORK-X77(W-IX2)
  69.            ELSE
  70.               ADD RECSIZE, 1 GIVING CT1
  71.               DISPLAY "RECORD OUT OF SYNC" LINE 24
  72.               STOP RUN.
  73.            ADD AL-LENGTH TO RECSIZE.
  74.            SET W-IX2 UP BY 1.
  75.            IF AL-EOR = "N"
  76.               IF AL-LENGTH NOT = 77
  77.                  MOVE "N" TO ON-TRACK
  78.                  GO TO LOOP
  79.               ELSE
  80.                  GO TO LOOP
  81.            ELSE IF AL-EOR NOT = "Y"
  82.               DISPLAY "RECEPTION ERROR"
  83.               STOP RUN.
  84.            IF RECSIZE = 0
  85.               MOVE SPACE TO WORK-REC
  86.               MOVE 1 TO RECSIZE.
  87.            MOVE WORK-REC TO A-REC.
  88.            WRITE A-REC.
  89.            MOVE SPACES TO WORK-REC.
  90.            SET W-IX2 TO 1.
  91.            MOVE 0 TO RECSIZE.
  92.            MOVE "Y" TO ON-TRACK.
  93.            ADD 1 TO REC-COUNT.
  94.            IF REC-COUNT-99 = 0
  95.               MOVE REC-COUNT TO DISP-COUNT
  96.               DISPLAY DISP-COUNT LINE 12 POSITION 16.
  97.            GO TO LOOP.
  98.       *
  99.       *
  100.       *
  101.        WRAPUP.
  102.            CLOSE A.
  103.            MOVE REC-COUNT TO DISP-COUNT.
  104.            DISPLAY DISP-COUNT LINE 12 POSITION 16.
  105.            DISPLAY "FILE TRANSFER COMPLETED".
  106.            ACCEPT WORK-REC LINE 0 POSITION 0.
  107.            STOP RUN.
  108.